with System;
with DataSpec;
use DataSpec;

package PO is

   protected Shared_Data is
      function Get return Data; 	-- for some global type, Data
      procedure Put(D : in Data);
   private
      pragma Priority(10); 		-- All callers must have priority no greater than 10
      Current : Data := 5;			-- Shared data declaration
   end Shared_Data;

end PO;
